home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / EXEC BLOCK LISTER.txt < prev    next >
Text File  |  2023-02-26  |  651b  |  23 lines
  1. NOMON C,I,O
  2.  
  3.  63800  REM  BLOCK LISTER
  4.  63805  VTAB 22: HTAB 1: CALL  - 958
  5.  63810  INPUT "BLOCK#=";BLOCK$
  6.  63815  IF BLOCK$ = "" THEN  END 
  7.  63820 BLOCK =  INT ( VAL (BLOCK$))
  8.  63825  IF (BLOCK < 0) OR (BLOCK > 639) THEN 63805
  9.  63830 X = 100 * BLOCK:Y = X + 99
  10.  63835  HOME : GOSUB 63900: CALL  - 912
  11.  63840  GOTO 63805
  12.  63900  REM  LIST X-Y
  13.  63905 ADRS =  PEEK (121) + 256 *  PEEK (122) + 144
  14.  63910  FOR I = 4 TO 0 STEP  - 1
  15.  63915  POKE ADRS + I,X - 10 *  INT (X / 10) + 48
  16.  63920 X =  INT (X / 10)
  17.  63925  POKE ADRS + I + 6,Y - 10 *  INT (Y / 10) + 48
  18.  63930 Y =  INT (Y / 10)
  19.  63935  NEXT I
  20.  63940  LIST XXXXX - YYYYY
  21.  63945  RETURN 
  22. GOTO 63800
  23.